home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / POETRY.DIR / 00009_Script_bt < prev    next >
Text File  |  1995-11-15  |  1KB  |  40 lines
  1. -- parent script
  2. --  button trios
  3. property myChannel, myNormal, myRollover, myPressed, myScript
  4. on birth me,sp, no, ro, pr,sc
  5.   set myRollover to (the number of cast ro)
  6.   set myPressed to (the number of cast pr)
  7.   set myNormal to (the number of cast no)
  8.   set myChannel to integer(sp)
  9.   set myScript to sc
  10.   return me
  11. end
  12.  
  13. on rollo me
  14.   if the castNum of sprite myChannel = myRollover then exit
  15.   puppetSprite myChannel,TRUE
  16.   set the castNum of sprite myChannel to myRollover
  17.   updateStage
  18.  -- puppetSprite myChannel, false
  19. end
  20.  
  21. on press me
  22.   if the castNum of sprite myChannel = myPressed then exit
  23.   puppetSprite myChannel,TRUE
  24.   set the castNum of sprite myChannel to myPressed
  25.   updateStage
  26.   puppetSprite myChannel, false
  27. end
  28.  
  29. on norm me
  30.   if the castNum of sprite myChannel = myNormal then exit
  31.   puppetSprite myChannel,TRUE
  32.   set the castNum of sprite myChannel to myNormal
  33.   updateStage
  34.   puppetSprite myChannel, false
  35. end
  36.  
  37. on doScript me
  38.   --put "doScript"&&myChannel
  39.   do myScript
  40. end